home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Just Call Me Internet
/
Just Call Me Internet.iso
/
com
/
computer
/
casio_st
/
prog_fx
/
oisac2
/
mode_33.txt
< prev
next >
Wrap
Text File
|
1994-03-01
|
292b
|
3 lines
1 ' *** OISAC 2 *** MODE 33 ***
10 DEFSEG=0:X=1771:A=PEEKX:B=PEEK(X+1):INPUT"Debut de bloc : ",d,"Fin de bloc : ",F,"Destination : ",a:n=F-d
20 f=d-1:e=n+f:IFFRE1+e-f>=0THENo=a+n-1:POKEX,204:POKEX+1,247:POKEX+3,5:GOSUB2090:POKEX,A:POKEX+1,B:POKEX+3,0 ELSEBEEP:PRINT"MODE33 impossible";:END